home *** CD-ROM | disk | FTP | other *** search
/ Amiga Games: 500 MB Amiga Software / 500 MB Amiga Software - Euber 130 - Amiga Games Disc & Mag.iso / s / setlastfax < prev    next >
Text File  |  1993-05-26  |  523b  |  21 lines
  1. ; Afax:s/SetLastFax
  2. ; Script sets local variable lastfax to name of last fax received
  3. ;
  4. if exists FAXREC:.next
  5.   set num `type FAXREC:.next`
  6.   set num `eval $num - 1`
  7.   set lastfax FAXREC:FAX$num
  8.   if not exists $lastfax
  9.     set lastfax FAXREC:FAX0$num
  10.       if not exists $lastfax
  11.         set lastfax FAXREC:FAX00$num
  12.           if not exists $lastfax
  13.             set lastfax FAXREC:FAX000$num
  14.               if not exists $lastfax
  15.                 unset lastfax
  16.               endif
  17.           endif
  18.       endif
  19.   endif
  20. endif
  21.